# -*- cperl -*-
{
    my @r;
    do { push @r, $_ if (!m/^smart:.+$/) } for @result;
    my $expect = <<'____END_EXPECT';
1..2
ok: foobar (no echo)
echo "ok: foobar, all"
ok: foobar, all
____END_EXPECT
    ;
    my $result = join '', @r; #@result;
    $check_result = $result eq $expect;
    print "";
}
